home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / other / wild / support / pytreeuse.bas < prev    next >
BASIC Source File  |  1999-05-25  |  625b  |  32 lines
  1. WINDOW 1,"TreeUse"
  2. DEFLNG a-Z
  3. CONST SIZE&=4096
  4. OPEN "Ram:PyTree.table" FOR INPUT AS 1
  5. DIM Quad(SIZE&),Disp(SIZE&),Jump(SIZE&)
  6. FOR i=0 TO SIZE& 
  7.  IF i/1000=INT(i/1000) THEN PRINT i
  8.  a$=INPUT$(12,1)
  9.  Quad(i)=CVL(LEFT$(a$,4))
  10.  Jump(i)=CVL(MID$(a$,5,4))
  11.  Disp(i)=CVL(RIGHT$(a$,4))
  12. NEXT i
  13. CLOSE 1
  14.  
  15. calc=4900^2
  16.  
  17. cur=0
  18. cycle:
  19. PRINT "cur: ",cur,INT(Disp(cur)-1)/2,Jump(cur)
  20. IF Quad(cur)<calc
  21.  PRINT "jump!",
  22.  ju=Jump(cur)+4
  23.  PRINT ju,ju/12
  24.  cur=cur+INT((ju/12))
  25.  IF Jump(cur)<=0 THEN PRINT "result";INT(Disp(cur)-1)/2:GOTO fine
  26. ELSE
  27.  cur=cur+1
  28.  IF Jump(cur)<0 THEN PRINT "result";INT(Disp(cur)-1)/2:GOTO fine
  29. END IF
  30. GOTO cycle
  31. fine:
  32.